home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib3 / v_03_03 / 3n03062b < prev    next >
Encoding:
Text File  |  1995-11-01  |  576 b   |  15 lines
  1. Sub Form_Load () 
  2.     Screen.MousePointer = 11    '  Hourglass cursor 
  3.                                 '  Center message Left/Right:
  4.     Banner.Left = (Screen.Width - Banner.Width) / 2 
  5.                                 ' Center message Top/Bottom:
  6.     Banner.Top = (Screen.Height - Banner.Height) / 2 
  7.  End Sub 
  8.  
  9. Sub Timer1_Timer () 
  10.     Timer1.Enabled = 0      '  False   -   Turn off the timer  
  11.     Load MainForm           '  Load form with Visible Property set to False
  12.     MainForm.Visible = -1   '  True - Keep it hidden until load is complete 
  13. End Sub 
  14.  
  15.